home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 64 / 064.d81 / us cities (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  329 lines
  1. 10 print"[147]"
  2. 20 sys57812"tod.o",8,0:poke780,0:poke781,0:poke782,192:sys65493
  3. 40 printchr$(14):poke53280,0:poke53281,0:printchr$(158):clr:i=rnd(-ti)
  4. 50 poke214,2:print:printtab(16)"[155][204][207][193][196][211][212][193][210]"
  5. 60 printtab(16)"[153][163][163][163][163][163][163][163][163]"
  6. 70 printtab(14)"[156][208]resents...."
  7. 80 poke214,7:print:forx=1to3:printtab(8)chr$(18)"                        "
  8. 90 nextx:poke214,8:print:printchr$(159)chr$(18)tab(10)"[213][206][201][212][197][196][160][211][212][193][212][197][211][160][195][201][212][201][197][211]"
  9. 100 gosub61000
  10. 110 open15,8,15,"r0:top score=top score":input#15,er:close15
  11. 112 ifer<>63then120
  12. 115 open3,8,3,"top score,s,r"
  13. 117 input#3,hs
  14. 118 input#3,hs$
  15. 119 close3
  16. 120 poke214,11:print:printchr$(5)tab(5)"[196]o you need directions? (y/n)":poke649,1
  17. 130 geta$:ifa$<>"y"anda$<>"n"then130
  18. 150 ifa$="n"then400
  19. 160 poke649,0:print"[147]":printchr$(159)tab(14)"[196][201][210][197][195][212][201][207][206][211]":poke214,4:print
  20. 170 print"1)  [197]ach question is worth between 10       and 50 points."
  21. 180 print"2)  [212]ype out your answer completely -       [211][208][197][204][204][201][206][199] and"
  22. 190 print"                 [145][195][193][208][201][212][193][204][201][218][193][212][201][207][206] count!"
  23. 200 print"3)  [212]he program ends exactly 5 minutes      after you begin."
  24. 210 print"4)  [212]he number of questions you have"
  25. 215 print"    correctly answered in a row is"
  26. 220 print"    displayed in the upper righthand        corner of the screen.
  27. 230 [153]"5)  (NULL)o end the program early, type          'quit' when";
  28. 240 [153]" answering a question."
  29. 250 [153][163]13)[199](159)"sys(NULL)ress any key":[151]649,10
  30. 260 [161]a$:[139]a$[178]""[167]260
  31. 270 [151]649,0:[153]"load":[153][163]14)"peek(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL)"
  32. 280 [153][163]4)"(for consecutive correct answers)
  33. 290 printtab(5)chr$(5)"[206][213][205][194][197][210]";:printtab(21)"[194][207][206][213][211] [208][207][201][206][212][211]"
  34. 300 printchr$(30)tab(8)"5............100-500"
  35. 310 printtab(7)"10............500-1000"
  36. 320 printtab(7)"15............1000-1500"
  37. 330 printtab(7)"20............1500-2000"
  38. 340 printtab(7)"25............2000-4000"
  39. 350 printtab(7)"30............10000, [150]plus 5":printtab(21)"added minutes"
  40. 360 printtab(21)"of playing time!
  41. 370 [153][163]13)[199](159)"sys(NULL)ress any key":[151]649,10
  42. 380 [161]a$:[139]a$[178]""[167]380
  43. 390 [151]649,0
  44. 400 qu[178]140:co[178]0:[134]dp(qu):nd[178]0:po[178]0
  45. 405 [158]49155:[158]49152,7,10,0,"xxxx"
  46. 410 [141]850:[140]
  47. 420 i[178][181]([187](1)[172]qu)[170]1:[139]dp(i)[178]1[167]420
  48. 430 dp(i)[178]1:i[178](i[172]2)[171]1:i[178]i[170]9
  49. 440 [129]h[178]1[164]i:[135]qu$:[130]h:[135]an$:[141]970
  50. 450 [151]214,12:[153]:[153]"";qu$;:[153][199](152)" is located in what state?";
  51. 460 [151]649,10
  52. 470 [139][194](49160)[177][178]5[167]1910
  53. 480 [151]214,14:[153]:[153][199](156)"(NULL)our atnnswer? ";:[141]2740
  54. 490 [139]ya$[178]"quit"[176]ya$[178]"(NULL)uit"[176]ya$[178]"(NULL)(NULL)right$(NULL)"[167]1910
  55. 500 [153]:[151]649,0:[139]ya$[179][177]an$[167][137]680
  56. 510 [151]53280,14:[153][199](149)"lenorrect!"
  57. 520 [151]54296,15:[151]54277,87:[151]54278,89:[151]54275,1:[151]54273,19
  58. 530 [151]54276,67:[129]kk[178]1[164]130:[130]:[151]54276,64:[151]54273,50:[151]54276,67
  59. 540 [129]kk[178]1[164]130:[130]:[151]54276,64:[151]54296,0
  60. 550 po[178]po[170]rs:co[178]co[170]1:nd[178]nd[170]1
  61. 570 [151]214,10:[153]:[153][163]29)"    cmdcmdcmd"co
  62. 580 [151]214,19:[153]:[153]"            "
  63. 590 [151]214,19:[153]:[153][163]4)[199](144);po:[129]x[178]1[164]1000:[130]
  64. 600 [139]co[178]5[167][141]2190
  65. 610 [139]co[178]10[167][141]2280
  66. 620 [139]co[178]15[167][141]2370
  67. 630 [139]co[178]20[167][141]2460
  68. 640 [139]co[178]25[167][141]2550
  69. 650 [139]co[178]30[167][141]2640
  70. 660 [139]nd[178]140[167][137]1910
  71. 670 [140]:[137]410
  72. 680 co[178]0:nd[178]nd[170]1:[140]
  73. 690 [151]53280,0:[151]54296,15:[151]54277,0:[151]54278,240
  74. 700 [135]a:[135]b:[135]c:[139]b[178][171]1[167][137]730
  75. 710 [151]54273,a:[151]54272,b:[151]54276,17:[129]t[178]1[164]200:[130]:[151]54276,16:[137]690
  76. 720 [131]11,150,110,9,77,5,-1,-1,-1
  77. 730 v$[178]"(NULL)he right answer is "
  78. 740 v$[178]v$[170]an$[170]"."
  79. 750 [129]l[178]54272[164]54296:[151]l,0:[130]
  80. 760 [151]54296,15:[151]54277,0:[151]54278,240:[151]54273,34:[151]54272,75
  81. 770 [151]54284,0:[151]54285,240:[151]54280,14:[151]54279,24
  82. 780 [129]t[178]1[164][195](v$):[153][202](v$,t,1)"_cmd";:jk[178]jk[170]1:[139]jk[179]2[167]800
  83. 790 jk[178]0:[151]54276,17:[151]54283,17:[151]54276,16:[151]54283,14
  84. 800 [130]:[153]" "
  85. 810 [151]214,17:[153]:[129]x[178]1[164][195](an$):[153][163]20)"stoptab(";:[130]x
  86. 820 [129]x[178]1[164]2000:[130]
  87. 830 [139]nd[178]140[167][137]1910
  88. 840 [137]410
  89. 850 [153]"load";:[151]53280,5:[151]53281,1:     [129]a[178]1[164]4
  90. 860 [153][199](31)" * * * * * * ";[199](28)"                           wait";
  91. 870 [153][199](31)"  * * * * *  "
  92. 880 [130]a:[153][199](31)" * * * * * * ";[199](28)"                           "
  93. 890 [151]214,20:[153]:[153][199](28)"                                        "
  94. 900 [153][199](28)"                                        wait";
  95. 910 [151]214,9:[153]:[153][163]13)"clr(NULL)(NULL)val(NULL)(NULL)right$(NULL)(NULL)";nd[170]1
  96. 920 [129]i[178]217[164]242:[151]i,[194](i)[176]128:[130]
  97. 921 [151]214,8:[153]:[153][163]26)"stoportantantantantantantantantantantan^"
  98. 922 [153][163]26)"stop(NULL)left$(NULL)=";hs;[163]38)"stop(NULL)"
  99. 923 [153][163]26)"stop(NULL)len(NULL)=";co;[163]38)"stop(NULL)"
  100. 924 [153][163]26)"stop/tantantantantantantantantantantanexp"
  101. 925 [151]214,8:[153]:[153]" stoportantantantantantantantantan^"
  102. 926 [153]" stop(NULL)(NULL)right$(NULL)val     (NULL)"
  103. 928 [153]" stop/tantantantantantantantantanexp"
  104. 930 [151]214,18:[153]:[153][163]1)[199](154)"(NULL)(NULL)(NULL)(NULL)close(NULL)len(NULL)(NULL)valon"
  105. 940 [153][163]17)[199](151)"peek(NULL)(NULL)(NULL)(NULL)on"
  106. 950 [153][163]28)[199](154)"(NULL)(NULL)right$(NULL)(NULL) (NULL)atn(NULL)(NULL)val"
  107. 960 [151]214,19:[153]:[153][163]4)[199](144)po:[142]
  108. 970 [129]ll[178]1[164]15:rs[178][181]([187](1)[172]41)[170]10
  109. 980 [151]214,19:[153]:[153][163]31)"stop";rs
  110. 990 [130]ll
  111. 1000 [142]
  112. 1010 [151]214,17:[153]:[153][163]13)[199](31)"             "
  113. 1020 [153][163]13)"             "
  114. 1030 [153][163]13)"             "
  115. 1040 [151]214,18:[153]:[153][163]17)[199](144)"peek(NULL)(NULL)(NULL)(NULL)":[142]
  116. 1050 [139]co[178]5[167]bo[178][181]([187](1)[172]401)[170]100
  117. 1060 [139]co[178]10[167]bo[178][181]([187](1)[172]501)[170]500
  118. 1070 [139]co[178]15[167]bo[178][181]([187](1)[172]501)[170]1000
  119. 1080 [139]co[178]20[167]bo[178][181]([187](1)[172]501)[170]1500
  120. 1090 [139]co[178]25[167]bo[178][181]([187](1)[172]2001)[170]2000
  121. 1100 [139]co[178]30[167]bo[178]10000:co[178]0:[137]1120
  122. 1110 [151]53280,2:[142]
  123. 1120 [129]y[178]1[164]5:[151]214,19:[153]:[153][163]17)"10000"
  124. 1130 [129]x[178]1[164]500:[130]x
  125. 1140 [151]214,19:[153]:[153][163]17)"     ":[129]x[178]1[164]500:[130]x
  126. 1150 [130]y
  127. 1160 po[178]po[170]10000:[158]49155:[158]49152,7,10,0,"xxxx":[137]660
  128. 1170 [143]
  129. 1180 [151]214,8:[153]:[129]x[178]1[164]9
  130. 1200 [153]"                                       ":[130]x
  131. 1210 ds[178][181]([187](1)[172]7)[170]3
  132. 1220 rn[178][181]([187](1)[172]ds)[170]1
  133. 1230 [151]214,10:[153]:[153][199](30)"right$'ve picked a number between 1 and";ds;"cmd."
  134. 1240 [153]"chr$uess it and your bonus is doubled!"
  135. 1250 [151]649,10
  136. 1260 [153]"clr(NULL)hat is your guess?stop"
  137. 1270 [153][163]21)"frefrefre"
  138. 1280 [161]yg$:yg[178][197](yg$)
  139. 1290 [139]yg[179]1[176]yg[177]ds[167]1280
  140. 1300 [151]214,12:[153]:[153][163]22)"";yg$
  141. 1310 [151]649,0
  142. 1320 [139][197](yg$)[179][177]rn[167][153][199](144)"(NULL)orry, the number was";rn;"cmd.":[137]1400
  143. 1330 [153][199](150)"(NULL)(NULL)(NULL) str$right$str$ right$(NULL)!!"
  144. 1340 s[178]54272:[151]s[170]24,15:[151]s[170]6,240:[151]s[170]4,17
  145. 1350 [129]a[178]1[164]5:[129]u[178]1[164]150[169]25:[151]s[170]1,u:[130]u:[130]a:[151]s[170]4,32
  146. 1360 [151]214,15:[153]:[153][163]14)"str$ (NULL) (NULL) peek (NULL) val"
  147. 1370 [151]214,19:[153]:[153][163]17)"     ":[129]x[178]1[164]1000:[130]
  148. 1380 [151]214,19:[153]:[153][163]17);bo[172]2
  149. 1390 bo[178]bo[172]2:[129]x[178]1[164]1000:[130]:[142